	TOP
 PARAMETER KLF=10
 PARAMETER KNL=13
 BYTE NL
 BYTE LF
 BYTE A1
 BYTE B2
 BYTE C3
 BYTE D4
 BYTE E5
 INT IAX
 INT IAY
 INT IAZ
	BEGINMAIN(AC,IAV)
		MS 'BEGIN T06'
 A1='0'
 A1++
 A1++
 A1++
 LF=+KLF
 NL=+KNL
 B2='3'
 C3=A1!=B2
 IF C3
	MS 'CHARCONS.'
 ENDIF
 MS '111111111'
 D4=+001
 GOSUB 01
 MS '222222222'
 IF D4
	MS 'GLOBALVBL'
 ENDIF
 MS '333333333'
 GOSUB 02
 MS '444444444'
 A1=+001
 B2=+002
 C3=+003
 D4=+001
 CHOOSE ON D4
 CASE A1
 CASE B2
 	MS '1!=2.....'
 CASE C3
	MS '1!=3.....'
 DEFAULT
	MS 'DEFAULT..'
 ENDCHOOSE
 MS '555555555'
 D4=+004
 CHOOSE ON D4
 CASE A1
	MS '4!=1.....'
 CASE B2
	MS '4!=2.....'
 CASE C3
	MS '4!=3.....'
 DEFAULT
 ENDCHOOSE
 GOSUB CR
 MS '666666666'
 D4=+003
 CHOOSE ON D4
 CASE A1
	MS '3!=1.....'
 CASE B2
	MS '3!=2.....'
 CASE C3
 DEFAULT
	MS 'DEFAULT..'
 ENDCHOOSE
 MS '777777777'
 GOTO 01
 LOC 01
 GOTO 02
 LOC 02
 MS '888888888'
 A1=+000
 B2=+005
 PACK (IAX,A1,B2)
 IAZ=+005
 C3=IAX!=IAZ
 IF C3
	MS 'PACKFAILS'
 ENDIF
 MS '999999999'
 A1=+100
 PACK (IAX,A1,B2)
 UNPACK (IAX,C3,D4)
 E5=A1!=C3
 C3=B2!=D4
 E5=E5?C3
 IF E5
	MS 'UNPACK...'
 ENDIF
	MS 'ENDOF T06'
 STOP 1
 MS '!!!!!!!!!'
	ENDMAIN
 SUB 02
 MS 'S2S2S2S2S'
 A1=+001
 IF A1
	RETURN
 ENDIF
 MS 'RETURN...'
 ENDSUB
 SUB 01
 MS 'S1S1S1S1S'
 D4=+000
 ENDSUB
 SUB CR
 WRITE NL
 WRITE LF
 ENDSUB
 BOTTOM
 FINIS
